Medabots Cardz/Medabots CD Cardz Metabee.bin/mac/assets/metabee.dxr/00038_Script_38

Text File | 2001-12-07 | 2KB | 44 lines

property myFile, useronlinee, resetscore
global gotobrassurl, squam, thescore, gNetID, jumbo

on beginsprite me
  jumbo = "Pending"
  set gNetID = getNetText ("http://www.nelvana.com/medabots/cookies/checkcookie.pl")
end


on mouseUp me
  --amended by fez 7/12/01
  --useronline = (the environment).internetConnected
  --if useronline = #online then
    if jumbo = "Pending" then
      set the blend of sprite(6) = 100
      set the text of member("statusreport") to "Please wait whilst we check you're login status"
    else if jumbo = "user_id=0" then
      set the blend of sprite(6) = 100
      set the text of  member("statusreport") to "You are not registered"
      goToNetPage ("http://www.nelvana.com/medabots/user_reg/register.html")
    else
      if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
      myFile = new(xtra "fileio")    -- Create an instance of FileIO
      --  openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access
      openFile (myFile, squam&"infom.txt",0)--Open the file with R/W access
      delete(myFile) --deletes the file
      --  createFile (myFile, the moviePath &"info.txt") --creates the file again
      createFile (myFile, squam&"infom.txt") --creates the file again
      --  openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
      openFile(myFile, squam&"infom.txt",0) --Open the file with R/W access
      --  mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
      resetscore = 0
      put resetscore into member("holdscore")
      mySaveString = member("holdscore").text
      writeString(myFile,mySaveString) --writes text to the file

      closeFile(myFile) -- Close the file
      myFile = 0 -- Dispose of the instance
      goToNetPage gotobrassurl, "_new"
    end if
  --end if
end